#!/src/bin/perl -w
print "Donner le nom du fichier \n";
$nom_fichier = <>;
if (!$nom_fichier)
{
	$nom_fichier = "ajout.txt"
}
open (FILEOUT, ">$nom_fichier");
print "Ecrire dans votre fichier : ";
while (<>) 
{
 print FILEOUT $_;
}
close FILEOUT;
open (FILEIN,$nom_fichier);
while ($ligne = <FILEIN>) 
{
	print "ligne $. : $ligne";
}
close FILEIN;